home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dflow.arc / CUSTSEL.PRG < prev    next >
Text File  |  1985-04-08  |  339b  |  19 lines
  1.  
  2. *select.prg
  3. do case
  4.     case ans = 'A'
  5.        do CUSTADD
  6.     case ans = 'L'
  7.        do CUSTLIST
  8.     case ans = 'M'
  9.       do CUSTMOD
  10.     case ans = 'P'
  11.       do CUSTPRIN
  12.     case ans = 'Q'
  13.       store F to work
  14.     otherwise
  15.       store T to again
  16.       @ 22,30 say "Please choose one of A,L,M,P or Q"
  17. endcase
  18. return
  19. P